SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDPRRE_GAST_I01]  
/*---------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                  --*/  
/*---Cliente              : OFISIS S.A.                  --*/  
/*---Sistema              : Tesoreria                    --*/  
/*---M«dulo               : Empresa                      --*/  
/*---Programa             : Inserci½n TDPRRE_GAST   	--*/  
/*---Nombre SP            : SP_TDPRRE_GAST_I01           --*/  
/*---Desarrollado por     : Carlos Marquez Escobar       --*/  
/*---Fecha Creaci«n       : 19/10/2004                   --*/  
/*---Base Datos           : Microsoft Sql Server         --*/  
/*---Versi«n              : 8.0                          --*/  
/*---Invoca a SP          :                              --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Modificado 1 por     :                              --*/  
/*---Fecha Modificaci«n   :                              --*/   
/*---Detalle Modificaci«n :                              --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Comentarios                                         --*/  
/*---                                                    --*/  
/*---                                                    --*/  
/*---------------------------------------------------------*/  
/*---------------------------------------------------------*/  
/*---Drop Proc SP_TDPRRE_GAST_I01                        --*/  
/*---Grant all on SP_TDPRRE_GAST_I01 to public           --*/   
/*---SP_TDPRRE_GAST_I01 '01' , 1, 1, '03/01/1999',       --*/  
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/  
/*---------------------------------------------------------*/  
@ISCO_EMPR		TD_VC_002,   
@ISCO_USUA		TD_VC_008,
@INNU_PRRE_GAST	TD_VC_010,   
@IDFE_PRRE_GAST	TD_DT_001,  
@INNU_CORR_SGTE	TD_IN_001,  
@ISCO_UNID_CNTB	TD_VC_003,    
@ISTI_ENTI		TD_VC_001,   
@ISCO_ENTI		TD_VC_020,  
@ISDE_ENTI		TD_VC_100,   
@ISCO_TIPO_DOCU	TD_VC_003,  
@ISNU_DOCU		TD_VC_020,  
@INFA_CAMB_DOCU	TD_NU_015_006,
@INFA_CAMB_EXTR	TD_NU_015_006,
@ISCO_MONE		TD_VC_003,  
@ISCO_TIOP_PROV	TD_VC_003,  
@INIM_BRUT_AFEC	TD_NU_016_004,  
@INIM_BRUT_INAF	TD_NU_016_004,  
@ISCO_IMP1		TD_VC_003,  
@INPC_IMP1		TD_NU_009_004,  
@INIM_IMP1		TD_NU_016_004,  
@ISCO_IMP2		TD_VC_003,  
@INPC_IMP2		TD_NU_009_004,  
@INIM_IMP2		TD_NU_016_004,  
@ISCO_IMP3		TD_VC_003,  
@INPC_IMP3		TD_NU_009_004,  
@INIM_IMP3		TD_NU_016_004,  
@INIM_SUBT_TOTA	TD_NU_016_004,  
@INIM_DOCU		TD_NU_016_004,   
@IDFE_DOCU		TD_DT_001,   
@IDFE_REGI_COMP	TD_DT_001,  
@INIM_CONV		TD_NU_016_004,  
@ISCO_TIPO_OPER	TD_VC_003,   
@ISCO_CNTA_EMPR	TD_VC_020,  
@ISDE_OBSE_DETA	TD_VC_100,  
@ISTI_AUXI		TD_VC_001,   
@ISCO_AUXI_EMPR	TD_VC_020,  
@ISCO_ORDE_SERV	TD_VC_020,  
@ISST_ACTU_PROV	TD_VC_001,  
@ISNU_IMPO		TD_VC_020
	As
declare   
@VNNU_CORR TD_IN_001,  
@VSST_AUXI_0008 TD_VC_001,  
@VSST_PROV_AUTO TD_VC_001,  
@VSCO_COND_CONT TD_VC_003,  
@VSST_ASTO_RESU TD_VC_001,  
@VNFA_CAMB_EXTR TD_NU_015_006,  
@VSCO_MONE_NACI TD_VC_003,  
@VSCO_MONE_EXTR TD_VC_003  
  
BEGIN TRAN  
  
 If @INIM_IMP1 < 0   
   Select @INIM_IMP1 = Abs(@INIM_IMP1), @INIM_IMP2 = Abs(@INIM_IMP2), @INIM_IMP3 = Abs(@INIM_IMP3)  
  
  
 Insert Into  TDPRRE_GAST(CO_EMPR, NU_PRRE_GAST, FE_PRRE_GAST, NU_CORR_GAST,  
			CO_UNID_CONC, TI_ENTI, CO_ENTI, DE_ENTI, CO_TIPO_DOCU,  
			NU_DOCU_PROV, FA_CAMB_DOCU, FA_CAMB_EXTR, CO_MONE, CO_TIOP_PROV,   
			IM_BRUT_AFEC, IM_BRUT_INAF, CO_IMP1, PC_IMP1, IM_IMP1,   
			CO_IMP2, PC_IMP2, IM_IMP2, CO_IMP3, PC_IMP3, IM_IMP3, IM_DOCU,   
			FE_DOCU, IM_CONV, CO_TIPO_OPER, CO_CNTA_EMPR, DE_OBSE,  
			TI_AUXI_EMPR, CO_CENT_COST, CO_ORDE_SERV, NU_IMPO, 
			CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)  
 Values  (@ISCO_EMPR, @INNU_PRRE_GAST, @IDFE_PRRE_GAST, @INNU_CORR_SGTE,   
			@ISCO_UNID_CNTB, @ISTI_ENTI, @ISCO_ENTI, @ISDE_ENTI, @ISCO_TIPO_DOCU,  
			@ISNU_DOCU, @INFA_CAMB_DOCU, @INFA_CAMB_EXTR, @ISCO_MONE, @ISCO_TIOP_PROV,  
			@INIM_BRUT_AFEC, @INIM_BRUT_INAF, @ISCO_IMP1, @INPC_IMP1, @INIM_IMP1,  
			@ISCO_IMP2, @INPC_IMP2, @INIM_IMP2, @ISCO_IMP3, @INPC_IMP3, @INIM_IMP3, @INIM_DOCU,   
			@IDFE_DOCU, @INIM_CONV, @ISCO_TIPO_OPER, @ISCO_CNTA_EMPR, @ISDE_OBSE_DETA ,  
			@ISTI_AUXI, @ISCO_AUXI_EMPR, @ISCO_ORDE_SERV, @ISNU_IMPO, 
			@ISCO_USUA, GETDATE(),@ISCO_USUA, GETDATE())  
  
	IF (@@ERROR != 0)  
	BEGIN   
		RAISERROR 20001 'ERROR DE INSERCION'  
		ROLLBACK TRAN  
		RETURN  
	END  
   
COMMIT TRAN  
/*--------------------------- Fin -------------------------------- */


GO
